perm filename NOS[M11,LCS] blob sn#428459 filedate 1979-03-22 generic text, type T, neo UTF8
SRT=12800;
INS  1; <  INSTRUMENT 1 
SIMP
;
NOS P4 FP3 B2 P5;
<OPT P4 P3 B2 F2 ;
OUT B2 B1;END; <  ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!   
GEN 0 2 1    1  1;  <SINE WAVE  F1
 
  < SINE .SCR  --  RANDOM NUMBER=     1
 SIMP     0.000    .1     A      450.0   F1
;PRINT P1;< SIMP    1
SIMP .1,, EF*4;
 FINISH; < SINE .SCR